home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / MacPerl5 / Demo / MakeUPPDB < prev    next >
Encoding:
Text File  |  1994-07-09  |  389 b   |  24 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; exit
  2.  
  3. #!perl
  4.  
  5. ($dir) = ($0 =~ /^(.*):[^:]+$/);
  6.  
  7. dbmopen(UPP, "$dir:UPPDB", 0666) || die "Couldn't create UPP database \"$dir:UPPDB\": $!";
  8.  
  9. while (<>) {
  10.     if (/^\s*upp([A-Z]\w+)Info/) {
  11.         $u = $1;
  12.         if ($la ne $ARGV) {
  13.             $UPP{$ln} = $ld if ($ld);
  14.             ($ln) = (($la = $ARGV) =~ /([^:]+)\.h/);
  15.             $ld = $u;
  16.         } else {
  17.             $ld .= ",$u";
  18.         }
  19.     }
  20. }
  21.  
  22. dbmclose(UPP);
  23.  
  24.